home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / readarj.zip / READARJ.BAS < prev   
BASIC Source File  |  1991-07-28  |  937b  |  49 lines
  1.  
  2. DEFINT A-Z
  3. '
  4. SUB ReadARJ (File$, Dir$(), DirNum)
  5.  
  6.    FileN = FREEFILE
  7.    OPEN File$ FOR BINARY AS FileN
  8.    Size& = LOF(FileN)
  9.  
  10.    GET FileN, 3, n
  11.    SEEK FileN, n + 13
  12.    Jump& = Jump& + n + 13
  13.    n$ = " "
  14.    GET FileN, , n$
  15.    n = ASC(n$)
  16.    Jump& = Jump& + n
  17.  
  18.    DO
  19.       n$ = SPACE$(n)
  20.       GET FileN, , n$
  21.       cnt = cnt + 1
  22.       Dir$(cnt) = ""
  23.       Fil$ = RIGHT$(n$, 16)
  24.       n = INSTR(Fil$, " ")
  25.       Fil$ = RIGHT$(Fil$, 16 - n)
  26.       FOR x = 1 TO LEN(Fil$)
  27.          n = ASC(MID$(Fil$, x, 1))
  28.          IF n > 32 THEN
  29.             Dir$(cnt) = Dir$(cnt) + CHR$(n)
  30.          END IF
  31.       NEXT
  32.       IF LEN(Fil$) = 0 THEN
  33.          EXIT DO
  34.       END IF
  35.       Jump& = SEEK(FileN) + CVL(MID$(n$, 14, 4)) + 9
  36.       IF Jump& >= Size& THEN
  37.          EXIT DO
  38.       END IF
  39.       SEEK FileN, Jump&
  40.       n$ = " "
  41.       GET FileN, , n$
  42.       n = ASC(n$)
  43.    LOOP
  44.  
  45.    DirNum = cnt - 1
  46.  
  47. END SUB
  48.  
  49.